home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / DELDIR.DEM < prev    next >
Text File  |  1994-07-02  |  471b  |  30 lines
  1. program DelDirSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    DirName : string;
  7.  
  8. begin
  9.   Color( 7, 0 );
  10.   clrscr;
  11.  
  12.   writeln;
  13.   write( 'Enter directory to delete : ' );
  14.   readln( DirName );
  15.  
  16.   DelDir( DirName );    { Call DelDir procedure }
  17.  
  18.   if ( ErrFlag ) then
  19.     begin
  20.       writeln( #7 );
  21.       writeln( ShowError( GetErrCode ) );
  22.     end
  23.   else
  24.     begin
  25.       writeln;
  26.       writeln( 'Directory successfully deleted. ' );
  27.     end;
  28.  
  29.   GetEnter;
  30. end.